100 POKE 36879,108:V=36878
110 PRINT"[147]":FORI=1TO7:PRINT:NEXT:PRINTTAB(6)"SOUND STORY"
120 FORL=1TO3000:NEXT
130 PRINT"[147]":POKE36879,8:FORI=1TO9:PRINT:NEXT
140 PRINTTAB(2)"[159]IT WAS A DARK AND     ":PRINTTAB(4)"STORMY NIGHT..."
150 POKEV,15:S=36874:FORL=1TO2000:NEXT
160 POKES,195:FORL=1TO600:NEXT:POKES,201:FORL=1TO200:NEXT
170 POKES,203:FORL=1TO300:NEXT:POKES,0:FORL=1TO100:NEXT
180 POKES,195:FORL=1TO200:NEXT:POKES,0:FORL=1TO200:NEXT
190 FORT=1TO12:POKES,211:FORL=1TO50:NEXT:POKES,213:FORL=1TO50:NEXT:NEXT:POKES,0
200 PRINT"[147]":FORL=1TO1000:NEXT:POKE36879,25:S=36877
210 FORL=250TO200STEP-1:POKES,L:NEXT:POKES,0:POKE36879,8:FORL=1TO100:NEXT
220 POKE36879,25:FORL=250TO200STEP-1:POKES,L:NEXT:POKES,0:POKE36879,8
230 FORL=15TO4STEP-.04:POKEV,L:POKES,130:NEXT
240 POKE36878,15:POKE36879,25:FORL=250TO180STEP-1:POKES,L:NEXT:POKES,0:POKE36879,8
250 FORL=15TO1STEP-.03:POKEV,L:POKES,128:NEXT
260 FORI=1TO6:PRINT:NEXT:PRINT"   SUDDENLY, OFF IN":PRINT:PRINT" THE DISTANCE, A TRAIN"
270 PRINTTAB(7)"WENT BY..."
280 FORL=1TO4000:NEXT
290 PRINT"[147]":L=1
300 FORD=200TO15STEP-5:L=L+.3:POKEV,L
310 POKES,200:FORT=1TO60:NEXTT:POKES,0:FORT=1TOD:NEXTT:NEXTD
320 FORL=15TO0STEP-.3:POKEV,L:POKES,200:FORT=1TO40:NEXTT:POKES,0:FORT=1TO40:NEXTT:NEXTL
330 FORI=1TO8:PRINT:NEXT:PRINTTAB(4)"THEN THE TRAIN":PRINT:PRINTTAB(3)"ENGINEER HEARD "
340 PRINTTAB(18)"[145]A":PRINT:PRINTTAB(4)"FLYING SAUCER!"
350 FORL=1TO4000:NEXT
360 PRINT"[147]":C=36879:POKEC,138:POKEV,15:S=36874:GOSUB430
370 POKEC,110:GOSUB440
380 POKEC,25:GOSUB430
390 POKEC,93:GOSUB440
400 POKEC,127:GOSUB430
410 POKEC,76:GOSUB440
420 POKEC,8:POKES,0:GOTO450
430 FORL=180TO254:POKES,L:FORM=1TO5:NEXTM:POKES,0:NEXTL:RETURN
440 FORL=254TO180STEP-1:POKES,L:FORM=1TO5:NEXTM:POKES,0:NEXTL:RETURN
450 PRINT"[147]":FORI=1TO8:PRINT:NEXT:PRINT"   A SECRET MESSAGE"
460 PRINT:PRINTTAB(3)"WAS SENT..."
470 FORM=1TO30:POKEV,15:POKE36876,200:FORL=1TO(INT(RND(1)*80)):NEXT
480 POKE 36876,0:FORL=1TO(INT(RND(1)*80)):NEXT:NEXT
490 PRINT"[147]":FORI=1TO9:PRINT:NEXT:PRINTTAB(5)"A PING PONG"
500 PRINT:PRINTTAB(5)"BALL DROPPED!"
510 POKEV,15:S=36874
520 FORD=200TO0STEP-5:POKES,250:FORT=1TO2:NEXTT:POKES,0:FORT=1TOD:NEXTT:NEXTD
530 PRINT"[147]":FORI=1TO7:PRINT:NEXT:PRINTTAB(3)"THE STORM ENDED,"
540 PRINT:PRINTTAB(2)"THE STARS CAME OUT,"
550 PRINT:PRINTTAB(2)" AND THE CRICKETS":PRINT:PRINTTAB(2)"STARTED CHIRPING..."
560 FORL=1TO5000:NEXT
570 PRINT"[147]":POKE36879,104:FORL=1TO20
580 X=INT(RND(1)*506)
590 POKE7680+X,46:POKE38400+X,7:NEXT
600 S=36876:FORL=15TO1STEP-.5:POKEV,L
610 FORN=1TO5:POKES,243:FORT=1TO3:NEXTT:POKES,0:FORT=1TO8:NEXTT
620 NEXTN:FORT=1TO100:NEXTT:NEXTL
630 FORI=1TO10:PRINT:NEXT:PRINTTAB(8)"[158]THE END"
640 FORL=1TO3000:NEXT:PRINT"[147]":POKE36879,27:END